home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / pas_all.zip / TI328.ASC < prev    next >
Text File  |  1991-09-11  |  3KB  |  133 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.   PRODUCT : TURBO PASCAL DATABASE TOOLBOX              NUMBER : 328
  10.   VERSION : 1.21
  11.        OS : ALL
  12.      DATE : July 28, 1986                                PAGE : 1/2
  13.     TITLE : TBDEMO UPDATE
  14.  
  15.  
  16.  
  17.  
  18.   The following modifications enable TBDEMO to add and delete
  19.   records correctly. Note that these code changes will update your
  20.   version of the Turbo Pascal Database Toolbox to version 1.21A.
  21.   Please update the version numbers at the top of each toolbox
  22.   module on your disk and be sure to indicate which version number
  23.   of the software you are using in any correspondence with Borland
  24.   International.
  25.  
  26.   1.  Make a backup copy of the file TBDEMO.PAS.
  27.   2.  Load the file TBDEMO.PAS into the Turbo Pascal editor.
  28.   3.  In the procedure AddCustomer, change the following:
  29.           .
  30.           .
  31.           .
  32.           Response        : char;
  33.         begin
  34.           repeat
  35.             InputInformation(Customer);
  36.             FindKey(CodeIndx,RecordNumber,Customer.CustCode);
  37.             If not OK then
  38.           .
  39.           .
  40.           .
  41.         Change to:
  42.           .
  43.           .
  44.           .
  45.           Response        : char;
  46.           TempCode        : string[15];      { Ver. 1.21A Addition }
  47.         begin
  48.           repeat
  49.             InputInformation(Customer);
  50.             TempCode := Customer.CustCode;   { Ver. 1.21A Addition }
  51.             FindKey(CodeIndx,RecordNumber,TempCode);
  52.                                              { Ver. 1.21A Modification }
  53.             If not OK then
  54.           .
  55.           .
  56.           .
  57.   4.  In the procedure DeleteCustomer, change the following:
  58.           .
  59.           .
  60.           .
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.   PRODUCT : TURBO PASCAL DATABASE TOOLBOX              NUMBER : 328
  76.   VERSION : 1.21
  77.        OS : ALL
  78.      DATE : July 28, 1986                                PAGE : 2/2
  79.     TITLE : TBDEMO UPDATE
  80.  
  81.  
  82.  
  83.  
  84.         Write(' Enter code of customer to be deleted: ');
  85.         Readln(CustomerCode);
  86.         FindKey(CodeIndx,RecordNumber,Customer.CustCode);
  87.         if OK then
  88.         begin
  89.           DeleteKey(CodeIndx,RecordNumber,Customer.CustCode);
  90.           DeleteRec(CustFile,RecordNumber);
  91.           .
  92.           .
  93.           .
  94.         Change to:
  95.           .
  96.           .
  97.           .
  98.         Write(' Enter code of customer to be deleted: ');
  99.         Readln(CustomerCode);
  100.         FindKey(CodeIndx,RecordNumber,CustomerCode);
  101.                                          { Ver. 1.21A Modification }
  102.         if OK then
  103.         begin
  104.           DeleteKey(CodeIndx,RecordNumber,CustomerCode);
  105.                                          { Ver. 1.21A Modification }
  106.           DeleteRec(CustFile,RecordNumber);
  107.           .
  108.           .
  109.           .
  110.   5.  At the top of the file update the modification date
  111.   6.  Save the file.
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.